Savor the Moment - Entert…ing Without Reservations/Savoe the Moment - Entertaining Without Reservations.iso/pc/Full_In/_SETUP.1/Resources.dxr/00002_Jump Back Button.ls

Text File | 1999-10-03 | 4.5 KB | 102 lines

property myStateBehavior, myState
global gNavigationButtonList

on getBehaviorDescription me
  return "JUMP BACK BUTTON" & RETURN & RETURN & "Clicking on a sprite with this behavior will take the user back to previously visited markers in all movies." & RETURN & RETURN & "This behavior works in association with the 'Jump to Marker Button' and/or the Jump to Movie Button' behaviors.  It can also be used with the 'Jump Forward Button' behavior." & RETURN & RETURN & "These behaviors store visited markers in a global variable: gNavigationButtonList.  While authoring, the Jump Back Button may take you back to other (unconnected) movies where you used the same behavior.  If you find this disconcerting, type 'clearGlobals' into the Message Window before you run your current movie." & RETURN & RETURN & "If you wish to use the 'Jump...' behaviors both on the Stage and in a MIAW, and you wish to make the content of each entirely separate, you will need to create a copy of the whole set of behaviors, and change all occurrences of the global name in all the behaviors in one set.  (Use the Find command, followed by the 'Replace all' button, limiting the search to the current script).  Use one set of behaviors for the MIAW and the other for the Stage." & RETURN & RETURN & "PERMITTED MEMBER TYPES" & RETURN & "Graphic members" & RETURN & RETURN & "PARAMETERS: None" & RETURN & RETURN & "ASSOCIATED BEHAVIORS:" & RETURN & "+ Jump to Marker Button" & RETURN & "+ Jump to Movie Button" & RETURN & "+ Jump Forward Button" & RETURN & "+ Push Button (to alter rollover / mouseDown states)"
end

on getBehaviorTooltip me
  return "Use with graphic members." & RETURN & RETURN & "This behavior can only be used in conjunction with the" & RETURN & "'Jump to Marker Button' and/or 'Jump to Movie Button'" & RETURN & "behaviors.  When the user clicks on a sprite with this" & RETURN & "behavior the playback will return to the markers/movies" & RETURN & "previously visited using the 'Jump to... Button'" & RETURN & "behaviors."
end

on beginSprite me
  Initialize(me)
end

on prepareFrame me
  if myStateBehavior.count() then
    CheckIfActive(me)
  end if
end

on mouseUp me
  GoBack(me)
end

on Initialize me
  if voidp(gNavigationButtonList) then
    gNavigationButtonList = [#stack: [], #forward: [], #index: []]
  else
    if gNavigationButtonList.ilk <> #propList then
      ErrorAlert(me, #invalidGlobal, gNavigationButtonList)
    else
      if not gNavigationButtonList.findPos(#stack) then
        ErrorAlert(me, #invalidGlobal, gNavigationButtonList)
      else
        if not gNavigationButtonList.findPos(#index) then
          ErrorAlert(me, #invalidGlobal, gNavigationButtonList)
        else
          if not gNavigationButtonList.findPos(#forward) then
            ErrorAlert(me, #invalidGlobal, gNavigationButtonList)
          end if
        end if
      end if
    end if
  end if
  theSprite = sprite(me.spriteNum)
  theBehaviors = theSprite.scriptInstanceList
  myState = -1
  myStateBehavior = []
  call(#PushButton_GetReference, theBehaviors, myStateBehavior)
end

on CheckIfActive me
  stackCount = count(gNavigationButtonList.stack)
  stackState = stackCount <> 0
  if myState = stackState then
    exit
  end if
  myState = stackState
  call(#PushButton_ToggleActive, myStateBehavior, stackState)
end

on GoBack me
  stackCount = count(gNavigationButtonList.stack)
  if not stackCount then
    exit
  else
    currentMarker = [#frame: marker(0), #movie: the movieName]
    if not gNavigationButtonList.index.getPos(currentMarker) then
      gNavigationButtonList.index.append(currentMarker)
    end if
    gNavigationButtonList.forward.append(currentMarker)
    markerToGoTo = gNavigationButtonList.stack.getLast()
    gNavigationButtonList.stack.deleteAt(stackCount)
    theFrame = markerToGoTo.frame
    theMovie = markerToGoTo.movie
    if theMovie = the movieName then
      go(theFrame)
    else
      go(theFrame, theMovie)
    end if
  end if
end

on ErrorAlert me, theError, data
  behaviorName = string(me)
  delete word 1 of behaviorName
  delete char -30001 of behaviorName
  delete char -30001 of behaviorName
  case data.ilk of
    #void:
      data = "<void>"
    #symbol:
      data = "#" & data
  end case
  case theError of
    #invalidGlobal:
      alert("BEHAVIOR ERROR: Frame " & the frame & ", Sprite " & me.spriteNum & RETURN & RETURN & "Behavior " & behaviorName & " requires a global gNavigationButtonList with the structure:" & RETURN & "[#stack [...], #index: [...], #forward: [...]]" & RETURN & RETURN & "Current value = " & data)
      halt()
  end case
end